home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / -color blend (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  383 b   |  12 lines
  1. 10 poke53265,59:poke53272,25:poke53281,12:print"[147]"
  2. 50 a$="[213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213]":a$=a$+a$+a$+a$:a$=a$+a$
  3. 60 poke808,234:fora=32to63step2:poke648,a:print""a$;a$;a$;a$:next:poke648,4
  4. 70 print"[147]"
  5. 100 fora=0to24:forb=0to39:poke1024+a*40+b,((band15)+(aand15)*16):next:next
  6. 105 poke198,0
  7. 110 geta$:ifa$<>" "then110
  8. 115 print"[147]"
  9. 120 fora=1024to2023:pokea,int(rnd(1)*256):next
  10. 130 geta$:ifa$<>" "then130
  11. 140 poke808,237:poke679,0:sys679
  12.